帮忙看一段代码`简单的~

来源：百度知道 编辑：UC知道 时间：2024/06/19 18:44:50
题目：
框架内有单选按钮Op1和Op2，标题分别为喜欢、不喜欢；另一框架内有两个复选框C1和C2，标题分别为数学、语文。单击窗体后，选择相应的选项，分别在文本框内显示相应内容。

代码：
Private Sub Form_Click()
Dim s As String, m As String
If Op1.Value = True Then
s = Op1.Caption
Else
s = Op2.Caption
End If
If C1.Value = 1 Then
m = s + C1.Caption
ElseIf C2.Value = 1 Then
m = s + C2.Caption
Else
m = s + C1.Caption + C2.Caption
End If
Text1.Text = m
End Sub

运行后复选框两个都选但只能显示C1的标题 怎么改？
还有 必须要定义两个量（s和m）么？只用一个能做么？

If C1.Value = 1 Then
m = s + C1.Caption
ElseIf C2.Value = 1 Then
m = s + C2.Caption
Else
m = s + C1.Caption + C2.Caption
End If

改为

If C1.Value = 1 and C2.Value = 1 Then
m = s + C1.Caption + C2.Caption
ElseIf C1.Value = 1 Then
m = s + C1.Caption
ElseIf C2.Value = 1 Then
m = s + C2.Caption
End If

Private Sub Form_Click()
Dim S As String, M As String
S = IIf(Op1.Value, Op1.Caption, Op2.Caption)
If C1.Value = 1 Then M = M & C1.Caption
If C2.Value = 1 Then M = M & " " & C2.Caption

S = S & "：" & IIf(Len(Trim(M)) = 0, " 无", M)
Text1.Text = S
End Sub